Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Problem z błędem "variable used without being declared"

Mattiii

Rekomendowane odpowiedzi

Mattiii Pomocnik

Mattiii

Opublikowano
Pomocnik

Mattiii

Opublikowano

Witam, otóż chciałem Odpalić skrypt, w którym link do Download'u nie działa, 
tak więc wkleiłem go do notatnika, po czym zapisałem jako FishBot.au3

Wyglada o tak:


HotKeySet("{End}","wyjdz")
HotKeySet("{Home}","start")
HotKeySet("{Pause}","pauza")
$okno = "METIN2"

if not WinExists($okno, "") then
Msg()
Exit
endif

Global Const $SC_DRAGMOVE = 0xF012
Global $aktywnosc
Global $papka = 0
Global $x, $y

$GUI = GUICreate("LightFish", 180, 170, 192, 124)
GUISetBkColor(0xFFFFFF)
$logo_pic = GUICtrlCreatePic("img\logo.bmp", 15, 5, 152, 56)
$Napis_1 = GUICtrlCreateLabel("Opóźnienie wędki", 19, 65, 90, 20)
$opoznieniewedki = GUICtrlCreateInput("2700", 107, 63, 33, 20)
$slot1 = GUICtrlCreateCheckbox("Zabijaj karasie", 19, 84, 135, 17)
$slot2 = GUICtrlCreateCheckbox("Wyrzucaj martwe karasie", 19, 100, 135, 17)
$Label3 = GUICtrlCreateLabel("Home - Start Pause - pauza", 14, 125, 999, 17)
$libon_1 = GUICtrlCreateLabel("FishBot v0.1 by kris006", 14, 148, 218, 28)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)



While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

Func smieci()
If $aktywnosc = 1 Then
If GUICtrlRead($slot2) = $GUI_CHECKED Then
$result = _ImageSearch("img\mkaras.bmp", 1, $x, $y, 10)
If $result = 1 Then
MouseClick("Left", $x, $y)
MouseClick("",349,331,1)
$result = _ImageSearch("img\ok.bmp", 1, $x, $y, 10)
If $result = 1 Then
MouseClick("", $x, $y)
$result = _ImageSearch("img\ok2.bmp", 1, $x, $y, 10)
If $result = 1 Then
MouseClick("right", $x, $y)
EndIf
EndIf
endif
endif
EndIf
EndFunc

Func Msg()
$metin=MsgBox(320,"LightFish 0.1","Przed otworzeniem programu uruchom grę!")
EndFunc



Func karas()
If $aktywnosc = 1 Then
If GUICtrlRead($slot1) = $GUI_CHECKED Then
ToolTip("zabijam karasie"&@LF&"", Default, Default,"LightFish 0.1",1,1+2+4) 
$result = _ImageSearch("img\karas.bmp", 1, $x, $y, 10)
If $result = 1 Then
MouseClick("right", $x, $y)
EndIf
EndIf
EndIf
EndFunc

Func przyneta()
If $aktywnosc = 1 Then
$result = _ImageSearch("img\robak.bmp", 1, $x, $y, 10)
If $result = 1 Then
MouseClick("right", $x, $y)
low()
EndIf
EndIf
EndFunc


func low()
If $aktywnosc = 1 Then
sleep(500)
$szukam_2 = _ImageSearch("img/low.bmp",1,$x,$y,5)
If Not @error Then
sleep(100)
MouseClick("Right",$x,$y)
chmurka()
endif
endif
EndFunc

func chmurka()
while 1
ToolTip("Czekam na rybe..."&@LF&"", Default, Default,"LightFish 0.1",1,1+2+4) 
$zmienna = PixelSearch( 500, 150, 501, 151, 0xFFFFFF , 30 ,2)
if not @error Then
ToolTip("Mam cos na chaczyku"&@LF&"", Default, Default,"LightFish 0.1",1,1+2+4) 
Sleep(GUICtrlRead($opoznieniewedki))
$szukam_2 = _ImageSearch("img/low.bmp",1,$x,$y,5)
If Not @error Then
MouseClick("Right",$x,$y)
mousemove($zmienna[0],$zmienna[1],0)
sleep(2800)
smieci()
karas()
przyneta()
EndIf
endif
WEnd
EndFunc


Func start()
$aktywnosc = 1
przyneta()
EndFunc

Func wyjdz()
Exit
EndFunc

Func pauza()
$aktywnosc = 0
EndFunc

 

 

 

 

 

 

Jednak Wyskakuje mi błąd w Lini 34, usunięcie tego, sprawia że pojawiają się kolejne błędy.
Oto Zdj. tego błędu

KoeNeuq.png

 

 

Nie wiem co zrobić, a chcę żeby to działało :/ 

Proszę was programistów o Pomoc :P jestem Zielony ! =D

Link Do Oryginalnego Sourca:
 

http://www.mpcforum.pl/topic/664933-source-autoit-fishbot-metin2/
 

 

 

Czekam na wasze Odpowiedzi :) !

 

Gracz:
League Of Legends
Metin2

iIChaampIon_eune_412_3.png

Salur Znawca

Salur

Opublikowano
Znawca

Salur

Opublikowano

Dodać to na Początek?

Tak, biblioteki wstawiamy na górze :)

"Myśl, myśl, myśl..." - Kubuś Puchatek || "Manual, manual, manual..." - Kubuś Programista


"Szukaj, szukaj, szukaj..." - Kubuś Odkrywca || "Debuguj, debuguj, debuguj..." - Kubuś Developer


 


Potrzebujesz czegoś? Oznacz mnie @Salur

Mattiii Pomocnik

Mattiii

Opublikowano
Pomocnik

Mattiii

  • Autor
Opublikowano

Tak, biblioteki wstawiamy na górze :)

 

Teraz Error z Linią 83 :( 

 
 
Func przyneta()
If $aktywnosc = 1 Then
$result = _ImageSearch("img\robak.bmp", 1, $x, $y, 10) <-- Linia 83
If $result = 1 Then
MouseClick("right", $x, $y)
low()
EndIf
EndIf

 

 

Mam

 

Error: Unknown Function name, chyba chodzi o to że nie może znaleźć robaka, czy jest tu napisane gdzie dokladnie on ma być ?

czy może skrypt trzeba wrzucić do clienta z Metinem ? 

Gracz:
League Of Legends
Metin2

iIChaampIon_eune_412_3.png

Salur Znawca

Salur

Opublikowano
Znawca

Salur

Opublikowano

 

Teraz Error z Linią 83 :(

 
 
Func przyneta()
If $aktywnosc = 1 Then
$result = _ImageSearch("img\robak.bmp", 1, $x, $y, 10) <-- Linia 83
If $result = 1 Then
MouseClick("right", $x, $y)
low()
EndIf
EndIf

 

 

Mam

 

Error: Unknown Function name, chyba chodzi o to że nie może znaleźć robaka, czy jest tu napisane gdzie dokladnie on ma być ?

czy może skrypt trzeba wrzucić do clienta z Metinem ? 

 

Dodaj bibliotekę,  #include <ImageSearch.au3>

 

@Edit fajnie ze nie poinformowało mnie że udzielono juz odpowiedzi.

"Myśl, myśl, myśl..." - Kubuś Puchatek || "Manual, manual, manual..." - Kubuś Programista


"Szukaj, szukaj, szukaj..." - Kubuś Odkrywca || "Debuguj, debuguj, debuguj..." - Kubuś Developer


 


Potrzebujesz czegoś? Oznacz mnie @Salur

Mattiii Pomocnik

Mattiii

Opublikowano
Pomocnik

Mattiii

  • Autor
Opublikowano 
#include <ImageSearch.au3>

Wyskakuje mi kolejny błąd

 

Error: Subscript used on non-accessible variable. =D chyba sobie nie połowie rybek ;p

 

z miłą chęcią zapraszam na GG GG:52400741 =]

Gracz:
League Of Legends
Metin2

iIChaampIon_eune_412_3.png

Jakub Specjalista

Jakub

Opublikowano
Specjalista

Jakub

Opublikowano

Spróbuj:

Local $result = _ImageSearch("img\ok2.bmp", 1, $x, $y, 10)
Global $result = _ImageSearch("img\ok2.bmp", 1, $x, $y, 10)

Lub zarejestruj zmienną globalną $result na samej górze, a dopiero w kodzie przypisz jej wartość.

 

Oczywiście nie wykorzystuj wszystkiego na raz. Każda linijka to osobna propozycja i zastępuje już istniejącą

$result = _ImageSearch("img\ok2.bmp", 1, $x, $y, 10)
Mattiii Pomocnik

Mattiii

Opublikowano
Pomocnik

Mattiii

  • Autor
Opublikowano

 

Spróbuj:

Local $result = _ImageSearch("img\ok2.bmp", 1, $x, $y, 10)
Global $result = _ImageSearch("img\ok2.bmp", 1, $x, $y, 10)

Lub zarejestruj zmienną globalną $result na samej górze, a dopiero w kodzie przypisz jej wartość.

 

Oczywiście nie wykorzystuj wszystkiego na raz. Każda linijka to osobna propozycja i zastępuje już istniejącą

$result = _ImageSearch("img\ok2.bmp", 1, $x, $y, 10)

O Kurde =D Aż tak się nie znam :P zobaczymy co mi z tego wyjdzie :P

 

 

 

@Edit myślę, że sobie odpuszczę tego bota :P nie znam się na tym, a non stop jakieś błędy wyskakują ;P

Gracz:
League Of Legends
Metin2

iIChaampIon_eune_412_3.png

Jakub Specjalista

Jakub

Opublikowano
Specjalista

Jakub

Opublikowano

W pierwszych dwóch wypadkach po prostu podmieniasz linijkę. W trzecim u góry tworzysz sobie zmienną Global $result i tyle. Czytałem na forum autoit i niby komuś to tam pomogło :P.

Mattiii Pomocnik

Mattiii

Opublikowano
Pomocnik

Mattiii

  • Autor
Opublikowano
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <SendMessage.au3>
#include <TabConstants.au3>
#include <ImageSearch.au3>
HotKeySet("{End}","wyjdz")
HotKeySet("{Home}","start")
HotKeySet("{Pause}","pauza")
$okno = "METin2"
 
 
Global Const $SC_DRAGMOVE = 0xF012
Global $aktywnosc
Global $papka = 0
Global $x, $y
Local $result = _ImageSearch("img\ok2.bmp", 1, $x, $y, 10)
 
$GUI = GUICreate("LightFish", 180, 170, 192, 124)
GUISetBkColor(0xFFFFFF)
$logo_pic = GUICtrlCreatePic("img\logo.bmp", 15, 5, 152, 56)
$Napis_1 = GUICtrlCreateLabel("Opóźnienie wędki", 19, 65, 90, 20)
$opoznieniewedki = GUICtrlCreateInput("2700", 107, 63, 33, 20)
$slot1 = GUICtrlCreateCheckbox("Zabijaj karasie", 19, 84, 135, 17)
$slot2 = GUICtrlCreateCheckbox("Wyrzucaj martwe karasie", 19, 100, 135, 17)
$Label3 = GUICtrlCreateLabel("Home - Start Pause - pauza", 14, 125, 999, 17)
$libon_1 = GUICtrlCreateLabel("FishBot v0.1 by kris006", 14, 148, 218, 28)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)


Tak to wkliłem :P nie usuwając linijki '' $result = _ImageSearch("img\ok2.bmp", 1, $x, $y, 10) ''

Gracz:
League Of Legends
Metin2

iIChaampIon_eune_412_3.png

Mattiii Pomocnik

Mattiii

Opublikowano
Pomocnik

Mattiii

  • Autor
Opublikowano 
Local $result = _ImageSearch("img\ok2.bmp", 1, $x, $y, 10)

na

Global $result

To co dodałeś tylko podmień.

 

 

 

To Samo, to chyba błąd tego całego ImageSearch'a bo to w nim jest błąd :P 

 

 

@Edit, w tym moim skrypcie Linia 44 w której jest błąd, jest pusta, wiec to chyba wina ImageSearch'a :P 

Gracz:
League Of Legends
Metin2

iIChaampIon_eune_412_3.png

  • 2 tygodnie później...

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...